home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPM_204_Window.inc < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.1 KB  |  34 lines
  1. %if lang = MPW%
  2.     { %filename% -- window }
  3.     { Created %date% %time% by AppMaker }
  4.  
  5.     {    For most applications, your window will have custom view classes.    }
  6.     {    This module provides a convenient place to put these classes.        }
  7.     {    If you specify a custom classname for any view item, AppMaker will    }
  8.     {    generate some skeleton code for that custom class.  It generates    }
  9.     {    a declaration of that class with a fields method; it generates        }
  10.     {    the body of the fields method; and AppMaker generates code for        }
  11.     {    dead strip suppression.  For some view items, AppMaker generates    }
  12.     {    other methods it knows you will need; for instance, for a             }
  13.     {    TTextListView, AppMaker generates a GetItemText method.                }
  14. %endif%
  15.  
  16. %for each item gen classMethods%
  17. {$S AOpen}
  18. {----------}
  19. Function New%windname%    (itsDocument:    TDocument):    TWindow;
  20. var
  21.     theWindow:    TWindow;
  22. Begin
  23.     theWindow := NewTemplateWindow (k%windname%ID, itsDocument);
  24.  
  25.     if gDeadStripSuppression then begin
  26.         %for each item gen gDeadStripSuppression%
  27.  
  28.     end;
  29.  
  30.     New%windname% := theWindow;
  31. End; {New%windname%}
  32.  
  33. {End U%windname%.inc.p}
  34.